VARIABLE COUNTS 10 ALLOT
VARIABLE RND HERE RND !

: RESET COUNTS 12 0 FILL CR ." COUNTS RESET!" CR ;
: COUNTER 2 * COUNTS + ;
: TALLY COUNTER 1 SWAP +! ;
: CATEGORY DUP 18 < IF 0 ELSE
           DUP 21 < IF 1 ELSE
		   DUP 24 < IF 2 ELSE
		   DUP 27 < IF 3 ELSE
		   DUP 30 < IF 4 ELSE
		               5 
  THEN THEN THEN THEN THEN SWAP DROP ;
: LABEL  DUP 0= IF ." REJECT "       ELSE
         DUP 1 = IF ." SMALL "       ELSE 
		 DUP 2 = IF ." MEDIUM "      ELSE
		 DUP 3 = IF ." LARGE "       ELSE
		 DUP 4 = IF ." EXTRA LARGE " ELSE
		            ." ERROR "
		THEN THEN THEN THEN THEN DROP ;
: EGGSIZE CATEGORY DUP LABEL TALLY ;
: U.R SWAP N>S ROT SWAP TUCK - SPACES TYPE ;
: REPORT PAGE ." QUANTITY    SIZE" CR CR
  6 0 DO I COUNTER @ 5 U.R 7 SPACES I LABEL CR LOOP ;
: RANDOM RND @ 31421 * 6927 + DUP RND ! ABS 6 MOD ;
: TEST 500 0 DO RANDOM TALLY LOOP REPORT RESET ;
RESET
